home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / IIS5_01.CAB / IIS_iiauth.asp < prev    next >
Encoding:
Text File  |  1999-06-03  |  5.4 KB  |  245 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <% Option Explicit %>
  3. <!-- #include file="directives.inc" -->
  4.  
  5. <% if Session("FONTSIZE") = "" then %>
  6.     <!--#include file="iito.inc"-->
  7. <% else %>
  8.     <!--#include file="iiauth.str"-->
  9.     <!--#include file="iianoncm.str"-->
  10. <% 
  11. On Error Resume Next 
  12.  
  13. Dim path, currentobj
  14.  
  15. path=Session("dpath")
  16. Session("path")=path
  17. Session("SpecObj")=""
  18. Session("SpecProps")=""
  19. Set currentobj=GetObject(path)
  20. %>
  21.  
  22. <!--#include file="iiset.inc"-->
  23. <!--#include file="iisetfnt.inc"-->
  24. <%
  25.     ' Do not use top.title.Global.update flag if page is loaded into a dialog
  26.     bUpdateGlobal = false
  27. %>
  28. <HTML>
  29. <HEAD>
  30. <TITLE>New</TITLE>
  31.  
  32. <SCRIPT LANGUAGE="javascript">
  33.  
  34. <!--#include file="iijsfuncs.inc"-->
  35.  
  36.     function loadHelp()
  37.     {
  38.         top.title.Global.helpFileName="iipy_6";
  39.     }
  40.  
  41.     function disableDefault(dir,fromCntrl, toCntrl)
  42.     {
  43.         if (!dir)
  44.         {
  45.             if (fromCntrl.value !="")
  46.             {
  47.                 toCntrl.value=fromCntrl.value;
  48.                 fromCntrl.value="";
  49.             }
  50.         }
  51.         else
  52.         {
  53.             if (toCntrl.value !="")
  54.             {
  55.                 fromCntrl.value=toCntrl.value;
  56.                 toCntrl.value="";
  57.             }
  58.         }
  59.     }
  60.  
  61.     function enableDefault(chkCntrl)
  62.     {
  63.         chkCntrl.checked=true;
  64.     }
  65.  
  66.     function SetDomain()
  67.     {
  68.         dname = document.userform.DefaultLogonDomain.value;
  69.         dname=prompt("<%= L_ENTERDOMAIN_TEXT %>",dname);
  70.             if ((dname != "") && (dname != null))
  71.             {    
  72.                 document.userform.DefaultLogonDomain.value=dname;
  73.             }
  74.     }
  75.     
  76.  
  77.     
  78.     function warnBasic(chkcntrl)
  79.     {
  80.         if (chkcntrl.checked)
  81.         {
  82.             if (!confirm("<%= L_BASICWARNING1_TEXT & L_BASICWARNING2_TEXT  & L_BASICWARNING3_TEXT & L_BASICWARNING4_TEXT%>"))
  83.             {
  84.                 chkcntrl.checked = false;
  85.             }
  86.         }
  87.     }
  88.  
  89.     
  90.     function warnDigest(chkcntrl)
  91.     {
  92.         if (chkcntrl.checked)
  93.         {
  94.             if (!confirm("<%= L_DIGESTWARN_TEXT %>"))
  95.             {
  96.                 chkcntrl.checked = false;
  97.             }
  98.         }
  99.     }
  100.     
  101.  
  102.     function SetUser()
  103.     {
  104.     <% if Session("IsAdmin") then %>
  105.         thefile="iipop.asp?pg=iianon.asp&tools=no";
  106.         title="AnonymousUser"
  107.         width = <%= iHScale(L_IIANON_W) %>;
  108.         height = <%= iVScale(L_IIANON_H) %>;
  109.         popbox=window.open(thefile,title,"toolbar=no,scrollbars=yes,directories=no,menubar=no,width="+width+",height="+height);
  110.         if(popbox !=null){
  111.             if (popbox.opener==null){
  112.                 popbox.opener=self;
  113.             }
  114.         }
  115.     <% end if %>
  116.     }
  117.  
  118. </SCRIPT>
  119.  
  120. </HEAD>
  121.  
  122. <BODY BGCOLOR="<%= Session("BGCOLOR") %>" LINK="#FFFFFF" LEFTMARGIN=0 TOPMARGIN=0 onLoad="loadHelp();"   >
  123.  
  124. <FORM NAME="userform">
  125. <TABLE HEIGHT="100%" WIDTH="100%"  CELLPADDING=0 CELLSPACING=0>
  126. <TR><TD VALIGN="top">
  127. <TABLE BORDER=0 BGCOLOR="<%= Session("BGCOLOR") %>"   CELLPADDING=10 CELLSPACING=0>
  128.  
  129. <TR>
  130. <TD>
  131. <TABLE BORDER=0 CELLPADDING=2 CELLSPACING=0>
  132. <TR>
  133.     <TD VALIGN="top" COLSPAN = 2>
  134.         <%= sFont("","","",True) %>
  135.             <IMG SRC="images/hr.gif" WIDTH=5 HEIGHT=2 BORDER=0 ALIGN="middle">    
  136.             <% if Session("IsAdmin") then %>
  137.             <%= checkbox("AuthAnonymous","setCntrlState(this.checked,btnAnonUser);", false) %>
  138.             <% else %>            
  139.             <%= checkbox("AuthAnonymous","", false) %>
  140.             <% end if %>
  141.             <B>
  142.                 <%= L_ANON_TEXT %>
  143.             </B>
  144.             <IMG SRC="images/hr.gif" WIDTH=<%= L_ANON_HR %> HEIGHT=2 BORDER=0 ALIGN="middle">            
  145.             <P>
  146.             <%= L_NOUSERNEEDED_TEXT %>            
  147.         </TD>
  148.     </TR>
  149.         <TD >            
  150.             <%= sFont("","","",True) %>            
  151.             <%= L_ACCOUNTUSED_TEXT %>
  152.         </TD>
  153.         <TD>            
  154.         <%= sFont("","","",True) %>            
  155.             <INPUT TYPE="button" NAME="btnAnonUser" VALUE="<%= L_EDIT_TEXT %>" OnClick="SetUser();">            
  156.             <INPUT TYPE="hidden" NAME="AnonymousUserName" VALUE="<%= currentobj.AnonymousUserName %>">                
  157.             <INPUT TYPE="hidden" NAME="AnonymousUserPass" VALUE="<%= currentobj.AnonymousUserPass %>">                
  158.             <INPUT TYPE="hidden" NAME="AnonymousPasswordSync" VALUE="<%= currentobj.AnonymousPasswordSync %>">                            
  159.         
  160.         </FONT>
  161.     </TD>
  162. </TR>
  163. <TR>
  164.     <TD COLSPAN = 2>
  165.      
  166.     </TD>
  167. </TR>
  168.  
  169. <TR>
  170.     <TD VALIGN="top" COLSPAN = 2>
  171.         <%= sFont("","","",True) %>
  172.         <IMG SRC="images/hr.gif" WIDTH=5 HEIGHT=2 BORDER=0 ALIGN="middle">        
  173.         <B>
  174.             <%= L_AUTHACCESS_TEXT %>
  175.         </B>
  176.         <IMG SRC="images/hr.gif" WIDTH=<%= L_AUTHACCESS_HR %> HEIGHT=2 BORDER=0 ALIGN="middle">            
  177.         <P>
  178.         <%= L_AUTHRESTR_TEXT %><BR>
  179.           * <%= L_ANONDISABLED_TEXT %><BR>
  180.           * <%= L_ACCESSRESTRICTED_TEXT %>    <P>                
  181.         </FONT>
  182.     </TD>
  183. </TR>
  184.  
  185. <TR>
  186.     <TD>
  187.         <%= sFont("","","",True) %>    
  188.             <%= checkbox("AuthBasic","warnBasic(this);setCntrlState(this.checked,btnDefDomain);", false) %>
  189.             <%= L_BASIC_TEXT %>             <%= L_CLEARPASS_TEXT %>
  190.             <P>
  191.             <%= L_DEFAULTDOMAIN_TEXT %>  
  192.             <P>
  193.         </TD>
  194.         <TD ALIGN="bottom">
  195.             <INPUT TYPE="button" NAME="btnDefDomain" VALUE="<%= L_EDIT_TEXT %>" OnClick="SetDomain();">
  196.             <INPUT TYPE="hidden" NAME="DefaultLogonDomain" VALUE="<%= currentobj.DefaultLogonDomain %>">                            
  197.         </FONT>
  198.     </TD>
  199. </TR>
  200.  
  201. <TR>
  202.     <TD>
  203.         <%= sFont("","","",True) %>    
  204.             <%= checkbox("AuthMD5","warnDigest(this);", false) %>
  205.             <%= L_DIGEST_TEXT %> 
  206.         </FONT>
  207.     </TD>
  208. </TR>
  209. <TR>
  210.     <TD>
  211.         <%= sFont("","","",True) %>    
  212.             <%= checkbox("AuthNTLM","", false) %>
  213.             <%= L_NTLM_TEXT %>
  214.         </FONT>
  215.     </TD>
  216. </TR>
  217.  
  218.                 
  219. </TABLE>
  220. </BLOCKQUOTE>
  221. </TD>
  222. </TR>
  223. </TABLE>
  224.  
  225.  
  226. </FORM>
  227.  
  228. <P>
  229. </TD></TR>
  230. </TABLE>
  231.  
  232. <script language="JavaScript">
  233. <% if Session("IsAdmin") then %>
  234.     setCntrlState(document.userform.chkAuthAnonymous.checked,document.userform.btnAnonUser);
  235. <% else %>
  236.     setCntrlState(false,document.userform.btnAnonUser);
  237. <% end if %>
  238.     
  239.     setCntrlState(document.userform.chkAuthBasic.checked,document.userform.btnDefDomain);
  240. </script>
  241.  
  242. </BODY>
  243. </HTML>
  244.  
  245. <% end if %>